(deftemplate ApaCalda
    (slot T_ac)
    (slot T_ar)
    (slot a)
    (slot nz)
    (slot z)
    (slot T_acc)
    (slot da)
    (slot di)
    (slot Tm)
    (slot Tai)
    (slot Li))

(assert (ApaCalda
    	(T_ac 60.3)
        (T_ar 10)
        (a 55)
        (nz 30.42)
        (z 24)
        (T_acc 10.1)
        (da 2)
        (di 1)
        (Tm 3)
        (Tai 2)
        (Li 5)))



